Public Class GestorRegistrarGrupo
    'Public Function cargarCursos() As DataTable
    '    Return MultiGrupo.cargarCursos
    'End Function

    Public Function cargarProfesores() As List(Of Profesor)
        Return MultiProfesor.ObtenerProfesores
    End Function

    Public Sub crearCurso(ByVal pcodigo As String, ByVal pnombre As String, ByVal pesGrupal As Boolean)
        MultiGrupo.CrearCurso(pcodigo, pnombre, pesGrupal)
    End Sub

    Public Sub ModificarCurso(ByVal pcodigo As String, ByVal pnombre As String, ByVal pid As String)
        MultiGrupo.ModificarCurso(pcodigo, pnombre, pid)

    End Sub

    Public Sub EliminarCurso(ByVal pid As String)
        MultiGrupo.EliminarCurso(pid)
    End Sub

    Public Sub crearProfesor(ByVal pnombre As String, ByVal pmail As String)
        MultiProfesor.CrearProfesor(pnombre, pmail)
    End Sub

    Public Sub eliminarProfesor(ByVal pid As Integer)
        MultiProfesor.eliminarProfesor(pid)
    End Sub
    Public Sub modificarProfesor(ByVal pid As Integer, ByVal pnombre As String, ByVal pmail As String)
        MultiProfesor.ModificarProfesor(pid, pnombre, pmail)
    End Sub

    Public Sub crearGrupo(ByVal phorario As String, ByVal paula As String, ByVal pnumero As Integer, ByVal pcuatrimestre As String, ByVal idcurso As String, ByRef listaProfes As ArrayList)
        MultiGrupo.CrearGrupo(phorario, paula, pnumero, pcuatrimestre, idcurso, listaProfes)

    End Sub

    Public Sub modificarGrupo(ByVal phorario As String, ByVal paula As String, ByVal pnumero As Integer, ByVal pcuatrimestre As String, ByVal idcurso As String, ByRef listaProfes As ArrayList, ByVal idGrupo As Integer)
        MultiGrupo.ModificarGrupo(phorario, paula, pnumero, pcuatrimestre, idcurso, listaProfes, idGrupo)

    End Sub

    Public Shared Function ObtenerCursos() As DataTable
        Dim listaCursos As DataTable = MultiGrupo.LevantarCursos

        If (listaCursos Is Nothing) Then
            Return Nothing
        End If
        Return listaCursos
    End Function

    Public Shared Function ObtenerProfesroes() As DataTable
        Dim listaProfesores As DataTable = MultiGrupo.LevantarCursos

        If (listaProfesores Is Nothing) Then
            Return Nothing
        End If
        Return listaProfesores
    End Function

    Public Shared Function ObtenerGrupos() As DataTable
        Dim listaGrupos As DataTable = MultiGrupo.LevantarGrupos

        If (listaGrupos Is Nothing) Then
            Return Nothing
        End If
        Return listaGrupos
    End Function

    Public Sub CerrarGrupo(ByVal idGrupo As Integer)
        Dim grupo As Grupo = MultiGrupo.BuscarGrupo(idGrupo)
        grupo.IsCerrado = True
        MultiGrupo.CerrarGrupo(grupo)
    End Sub
End Class
